object fEnvelope: TfEnvelope
  Left = 263
  Top = 196
  Width = 485
  Height = 443
  BorderIcons = [biSystemMenu]
  Caption = 'Imprimir Envelope'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 154
    Top = 45
    Width = 127
    Height = 13
    Caption = 'C'#243'digo - ou - TODOS CLIE'
  end
  object SpeedButton2: TSpeedButton
    Left = 324
    Top = 13
    Width = 29
    Height = 30
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C006000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000
      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
      9CC7E74286B54286B5000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000
      000084B2D69CC7E73175AD0000000000004286B53175AD000000000000FF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FF0000009CC7E79CC7E73175AD3175ADA5CFE76BA2CE6BA2CE00000000000042
      86B53175AD000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF4286B53175AD3175ADA5CFE7A5CFE79CC7E76BA2CE5A9A
      C65296C64286B50000000000003175AD000000FF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FF4286B53175ADB5D7EFA5CFE7A5CFE79CC7E7
      9CC7E76BA2CE5A9AC65296C65296C64286B54286B5000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4286B5FFFBFFA5CFE7A5
      CFE79CC7E79CC7E7FFFBFF5A9AC66BA2CE5296C64286B54286B53175AD4286B5
      3175AD000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4286
      B5FFFBFF9CC7E79CC7E7FFFBFFFFFBFFA5CFE7A5CFE7A5CFE75296C65296C642
      86B54286B53175AD3175AD000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FF4286B5FFFBFFFFFBFFFFFBFFB5D7EFB5D7EF0000FF0800E7A5CF
      E7A5CFE79CC7E74286B54286B54286B53175AD000000FF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FF4286B5FFFBFFC6DFEFC6DFEF00FF00009A9C
      A5CFE7A5CFE7B5D7EF3175AD4286B50000009CC7E73175AD3175AD000000FF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4286B54286B5FF
      FBFFC6DFEFB5D7EFB5D7EF4286B53175AD9CC7E79CC7E70000009CC7E73175AD
      3175ADFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FF4286B54286B5FFFBFF3175AD9CC7E79CC7E7C6DFEFD6E3F7C6
      DFEF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4286B54286B5B5D7EFC6DF
      EFE7EBF7E7EBF7EFF3FFC6DFEF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FF4286B5D6E3F7E7EBF7EFF3FFFFFBFFFFFBFFC6DFEF000000000000FF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FF4286B5EFF3FFEFF3FFFFFBFF4286B54286B5
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4286B54286B542
      86B5FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 40
    Top = 294
    Width = 385
    Height = 121
    Caption = 'Avisos'
    TabOrder = 8
    object Label2: TLabel
      Left = 96
      Top = 16
      Width = 53
      Height = 13
      Caption = 'Data Inicial'
    end
    object Label3: TLabel
      Left = 192
      Top = 16
      Width = 48
      Height = 13
      Caption = 'Data Final'
    end
  end
  object BitBtn1: TBitBtn
    Left = 149
    Top = 101
    Width = 145
    Height = 41
    Caption = 'Imprimir Envelope (individual)'
    TabOrder = 2
    OnClick = BitBtn1Click
    OnKeyPress = meDta3KeyPress
  end
  object Edit1: TEdit
    Left = 149
    Top = 61
    Width = 137
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnKeyPress = meDta3KeyPress
  end
  object BitBtn2: TBitBtn
    Left = 150
    Top = 149
    Width = 145
    Height = 41
    Caption = 'Imprimir Envelope (Todos)'
    TabOrder = 3
    OnClick = BitBtn2Click
    OnKeyPress = meDta3KeyPress
  end
  object ComboBox1: TComboBox
    Left = 149
    Top = 13
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'ASH'
    OnKeyPress = meDta3KeyPress
    Items.Strings = (
      'ASH'
      'PCMSO')
  end
  object BitBtn3: TBitBtn
    Left = 148
    Top = 369
    Width = 129
    Height = 37
    Caption = 'Imprimir Avisos'
    TabOrder = 6
    OnClick = BitBtn3Click
  end
  object meDta4: TMaskEdit
    Left = 221
    Top = 327
    Width = 75
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    EditMask = '!99/99/00;1;_'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 8
    ParentFont = False
    TabOrder = 5
    Text = '  /  /  '
    OnKeyPress = meDta3KeyPress
  end
  object meDta3: TMaskEdit
    Left = 124
    Top = 327
    Width = 81
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    EditMask = '!99/99/00;1;_'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 8
    ParentFont = False
    TabOrder = 4
    Text = '  /  /  '
    OnKeyPress = meDta3KeyPress
  end
  object BitBtn7: TBitBtn
    Left = 313
    Top = 323
    Width = 32
    Height = 32
    TabOrder = 7
    TabStop = False
    OnClick = BitBtn7Click
    Glyph.Data = {
      1E070000424D1E070000000000003600000028000000160000001A0000000100
      180000000000E806000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C000000000FF00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0
      C0C0C0C0C0C0C0C000000000FF00007F00007F00007F0000007F7F7F7F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C00000FF00007F0000000000007F7F7F7F7F7F7F7F7F
      7F7F7FC0C0C0C0C0C0C0C0C000000000FF00007F00007F00007F000000000000
      7F7F7F7F7F7F7F7F7F7F7F7FC0C0C00000FF00007F00007F0000000000007F7F
      7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C000000000FF00007F00007F00007F0000
      7F0000000000007F7F7F7F7F7F7F7F7F0000FF00007F00007F00007F00007F00
      00000000007F7F7F7F7F7FC0C0C0C0C0C0C0C0C000000000FF0000FF00007F00
      007F00007F00007F0000000000007F7F7F0000FF00007F00007F00007F00007F
      00007F00007F000000000000C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C00000FF
      00007F00007F00007F00007F00007F00000000000000007F00007F00007F0000
      7F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C00000FF0000FF00007F00007F00007F00007F00007F00007F00007F00007F00
      007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000FF0000FF00007F00007F00007F00007F00007F00007F
      00007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F0000
      7F00007F00007F00007F00007F0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F00
      007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF
      00007F00007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C00000FF00007F00007F00007F00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F0000
      7F00007F0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000FF0000FF00
      007F00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000007F7F7F
      0000FF0000FF00007F00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C00000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F0000007F7F
      7FC0C0C0C0C0C00000FF0000FF00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F00007F00
      00007F7F7FC0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F
      0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F0000
      7F00007F0000000000007F7F7FC0C0C00000C0C0C00000FF0000FF0000FF0000
      7F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF00
      00FF00007F00007F00007F000000C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C000
      00FF0000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C00000FF0000FF00007F00007FC0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000}
  end
  object escolha: TRadioGroup
    Left = 304
    Top = 64
    Width = 145
    Height = 57
    Caption = 'Impressora'
    Columns = 2
    ItemIndex = 1
    Items.Strings = (
      'laser'
      'matricial')
    TabOrder = 9
  end
  object BitBtn4: TBitBtn
    Left = 336
    Top = 160
    Width = 75
    Height = 25
    Caption = 'BitBtn4'
    TabOrder = 10
    Visible = False
    OnClick = BitBtn4Click
  end
  object RadioGroup1: TRadioGroup
    Left = 12
    Top = 31
    Width = 97
    Height = 105
    Hint = 'Escolher Tipo a Imprimir'
    Caption = 'IMPRIMIR'
    ItemIndex = 0
    Items.Strings = (
      'KLOK'
      'INTERMEDIA'#199#195'O')
    TabOrder = 11
    Visible = False
  end
  object BitBtn5: TBitBtn
    Left = 99
    Top = 196
    Width = 249
    Height = 41
    Caption = 'Imprimir Envelope (individual Todos Associados) '
    TabOrder = 12
    OnClick = BitBtn5Click
    OnKeyPress = meDta3KeyPress
  end
  object BitBtn6: TBitBtn
    Left = 100
    Top = 245
    Width = 250
    Height = 41
    Caption = 'Imprimir Envelope  ASH (Todos Varej'#227'o e Correio)'
    TabOrder = 13
    OnClick = BitBtn6Click
    OnKeyPress = meDta3KeyPress
  end
  object VCLReport1: TVCLReport
    AsyncExecution = False
    Title = 'Untitled'
    Left = 16
    Top = 168
  end
  object sql_imprimi: TSQLClientDataSet
    CommandText = 
      'select  CLI.CODCLIENTE'#13#10'           ,CLI.NOMECLIENTE'#13#10'           ' +
      ',CLI.GRUPO_CLIENTE'#13#10'           ,CLI.STATUS'#13#10'           ,CLI.RA'#13#10 +
      '           ,ENDE.LOGRADOURO'#13#10'           ,ENDE.CIDADE'#13#10'          ' +
      ' ,ENDE.BAIRRO'#13#10'           ,ENDE.UF'#13#10'           ,ENDE.CEP '#13#10'     ' +
      '     ,ENDE.COMPLEMENTO      '#13#10'           '#13#10'      '#13#10'from CLIENTES' +
      ' CLI'#13#10#13#10'LEFT OUTER JOIN  ENDERECOCLIENTE ENDE ON ENDE.CODCLIENTE' +
      ' = CLI.CODCLIENTE '#13#10#13#10'where GERAENV = '#39'S'#39' and  CLI.GRUPO_CLIENTE' +
      ' = :GRUPO and ENDE.TIPOEND = 0 and CLI.STATUS = 0'#13#10'        '#13#10'ord' +
      'er by cli.codcliente'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'GRUPO'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 424
    Top = 232
    object sql_imprimiCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object sql_imprimiNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object sql_imprimiGRUPO_CLIENTE: TStringField
      FieldName = 'GRUPO_CLIENTE'
      Size = 30
    end
    object sql_imprimiSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object sql_imprimiRA: TStringField
      FieldName = 'RA'
      Size = 10
    end
    object sql_imprimiLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object sql_imprimiCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 40
    end
    object sql_imprimiBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 30
    end
    object sql_imprimiUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object sql_imprimiCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object sql_imprimiCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
  end
  object VDODmPrinter1: TVDODmPrinter
    ShowDialog = True
    ShowPreview = True
    ShowProgress = True
    Title = 'VDOPrint Document'
    CharMode = cmClear
    Font.Align = faLeft
    Font.FontType = ftDraft
    Font.NLQFont = ntSansSerif
    Font.Pitch = fp10cpp
    Font.Size = fsDefault
    Font.Style = []
    LineSpacing = ls6lpp
    LineSpacingCustomValue = 36
    Paper.AutoNewPage = False
    Paper.AutoNewPageLines = 3
    Paper.Columns = 80
    Paper.Lines = 66
    Paper.MarginLeft = 0
    Paper.MarginRight = 0
    Left = 376
    Top = 24
  end
end
